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SUBROUTINE RKDISK (LUN) 
Version: *v04-000' 


ae8 


C 
boost 
5 COR e eee eee RRR A TERRA AAEAAAAAAEAAA RARER AAEEEAAEAAEAAA AERA AAAS 
Ce * 
C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
8 C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
sh FS ALL RIGHTS RESERVED. * 
* 
0011 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
bot¢ C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
15 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
19 os TRANSFERRED. . 
® * 
Bo18 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
19 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Bose FS CORPORATION. * 
* 
0038 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
O087 > SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
* 
0025 Cs ‘ 
Bose Cee eee eee REAR AEE AAAAEEAAAAAAAAAEAA AREA AAEEEAEAEAAEA RAAT EREREERRAARKRERRE 
Cc 
0028 C 
it 34 C 
ts 3 AUTHOR BRIAN PORTER CREATION DATE 31-MAR-1979 
it 
003 c++ 
site c Functional description: 
c 
0036 C This module displays entries made for the RK611 controller. 
0037 c The format of the error log packet after the 4 longword header 
0038 c is as follows. 
ee 
0 3 Geeeeeceeeceereoeooecoeoeecoes were sew ene ewan t 
0041 c ' rkcs1 ' 
nk} Cc ger eree reco eoeceeecoaee erent eee ce enm ean oes + 
c ‘ rkwe ' 
bps c Geom e een ens wees een cm ner ewe enw ewe wmom oe ne + 
5 c H rkba ' 
Rose Cc gwoce moma enen an eee recone ene eer eee meee enw + 
C i rkda \ 
nt 4 c Geese scene eee seen nen ern ese ewe wane nee eee + 
9 c ' rkcs2 ' 
50 c gece san eames weer eee ees come eeeceenn ones + 
51 c i rkds ' 
it 4 c Ferme raem tro we am mene mn reese mewn ee eS eM e oe & 
5 c ' rker ' 
54 Cc ee ewrernrec eo reset ee een oe seo oe sear ene noes + 
55 c t rkas ' 
8936 Cc em ew wore emer nme moe n= Bet er nero seen wees + 
5 ¢ ' rkdc ' 


Pa 
CIRKDISK.FOR;1 
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| 
-Sep-1984 DISKSVMSMASTER: CERF. SRCIRKDISK. FOR: 1 | 
0058 Coc feeeeeccccccceccccccece-coscccocccsece + 00 
36 C ' rkmr 00 
Cc ee + 00 
1 C { rkec! ' 00 
0068 C Sonaeasuenecatwesenseewesunnewenesunses + 00 
006 C : rkec2 | 8S 
0064 C nt + | 0 
5 c ' rkmr2 ' 03 
0066 c | ee aed. nT > 0 
. ee : rkmr3 i 8s 
.>—- : uba datapath number 8s 
70 Cc $woeeeoeeeceoeeeeccoceeesceceeeseseocen + 0 
0071 ¢ i uba datapath register 02 
0078 : (seatinsonnenentasaneteeEeensnkenee | 02 
th c : uba final mapping register { | if 
Cc See setae nw ese swe een ese nmn end etonseeeoen eae a se = 
Ae ae Se | 183 
007 ra 02 
0078 c Modified by: 02 
0079 C 02 
0080 C v03-003 SAR0231 Reynol 28-Mar-1984 02 
9081 c Changed the catk” ~ "ocesi OW mies to ORBSL _OWNER. 8 
0083 C v03-002 SAR0092 Sharon A. Reynolds, 20-Jun-1983 02 
0084 C Changed the carriage control in the ‘format’ statements 02 
pos? : for use with ERF. 05 
$089 C v03-001 SAR0O049 Sharon A. Reynolds, 13-Jun-1983 02 
ones ‘ Removed brief/cryptic support. 8s 
0090 c v02-005 BP0005 Brian Porter, 23-NOV-1981 02 
lad c minor edit. 85 
C 
$098 c v02-004 BP0004 Brian Porter, 03-NOV-1981 02 
saa C Added device attention support. 83 
C 
0096 c v02-003 BP0003 Brian Porter, 30-SEP-1981 03 
iad C Corrected call to uba_mapping. 8 
C 
0099 Cc v02-002 BP0002 Brian Porter, 23-JUL-1981 03 
Bigt c Added new uba handling routines. Os 
c 
4 4 c v02-001 BP0001 Brian Porter, 29-JUN-1981 83 
at c Made the default register output 16-bit. Added call 03 
104 c to new DHEAD and LOGGER modules. Removed call to 03 
AR? OF UNUSED_BITS, ILLEGAL_BITS and REGCHK o3 
C 
| 3 
0109 INCLUDE "SRCS:MSGHDR.FOR /NOLIST* | 03 
0168 INCLUDE *SRC$:DEVERR.FOR /NOLIST® | 3 
HH BYTE LUN | ; 
72 INTEGER*4 RKCS1 | 03 
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RKDISK 16-Sep-1984 00:13: VAX=11 FORTRAN V3.4-56 Page 3 Rk 
-Sep- 121: DISKSVMSMASTER: CERF .SRCIRKDISK.FOR; 1 
ety rie Pee 4 t } . 

0273 INTEGER®4 RKWC | 02 
7 INTEGER®4 RKBA oi 
75 INTEGER®4 RKDA | ) 
06 INTEGER®4 RKCS2 Q3 
7 INTEGER®4 RKDS Q3 
8 INTEGER®4 RKER Q3 
7 INTEGER®4 RKAS Q3 
80 INTEGER®4 RKDC 03 

0281 INTEGER®4 RKMR1 Q3 

0 Be INTEGER*®4 RKECI 03 

028 INTEGER®4 RKEC Q3 
Se INTEGER*4 RKMR 03 

5 INTEGER®4 RKMR Q; 
86 INTEGER®4 UBA_REGS(4) 03 
8 INTEGER®4 FIECD 03 

8 yt.) INTEGER®4 DRIVE_FUNC 03 
89 INTEGER®4 COMPRESSC 03 

8 s' INTEGER*®4 COMPRESS4 e 

6 9 Logical diagnostic_mode 83 

0294 PARAMETER TIMEOUT = 96 03 

063 PARAMETER XFER_ERR = 32 03 

0296 PARAMETER XFER_CMD = 8 03 

0297 PARAMETER RKO6 = 1 03 

0298 PARAMETER RKO7 = ¢ 03 

9 99 PARAMETER SEEK = H 

0301 EQUIVALENCE (RKCS1,EMBSL_DV_REGSAV(0)) 03 

050¢ EQUIVALENCE (RKWC,EMBSL_BV_REGSAV(1)) 03 

030 EQUIVALENCE RKBA,EMBS$L_D =REGSAV()} 03 

0304 EQUIVAL (RKDA, EMBSL_DV_REGSAV(3)) 03 

0305 EQUIVALENCE (RKCS2,EMBSC_DV_REGSAV(4)) 03 

0306 EQUIVALENCE RKDS ,EMBSL_DV_REGSAV(5)) 03 

0307 EQUIVALENCE (RKER, EMBSL_DV_REGSAV(6) ) 03 

0308 EQUIVALENCE (RKAS,EMBSL_DV_REGSAV(7)) 03 

0309 EQUIVALENCE (RKDC EnSSL DV-REGSAV(8)) 03 

0310 EQUIVALENCE (RKMR{ ,EMBSC_DV_REGSAV(9)) 

0311 EQUIVALENCE (RKEC1, EMBSL_DV-REGSAV(10)) 

0312 EQUIVALENCE (RKEC2, EMBSL_DV_REGSAV(11)) 

031 EQUIVALENCE (RKMR - EMBSLDV_REGSAV(12)) 

0314 EQUIVALENCE (RKMR3, EMBSL~DV-REGSAV(13)) 

0315 EQUIVALENCE (UBA_REGS ,EMBSL“DV_REGSAV(14)) | 

$318 CHARACTER*8 OF FSET_DIR(O:1) 

0318 DATA  OFFSET_DIR(O) ~ /"FORWARD®'/ 

8 4 DATA OFFSETIDIR(1) /*REVERSE®'/ | 

0321 CHARACTER®S RKO6_OFFSET(1:5) 

9 3 ATA = RKO6_OFFSET(T) 1.58004 | 

DATA RKO6 OF FSET (2) /' 9 a'/ 
0324 TA RKOGTOFFSET(3) 9 /°4008*/ 
325 DATA  RKO6-OFFSET(4) 90 e'/ 
; g DATA RKO6_OFFSET(S) /°1200%'/ | 
8 CHARACTER®S RKO? _OFFSET(1:5) 
329 DATA RKO7_OFFSET(T) /°12.58'/ 
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0 DATA RK 7 OFFSET (@? /*100#'/ 
8 1 DATA RKO7"OFFSET(3) a «'/ 
DATA RKO7-OFFSET(4) /°4008'/ 
8 DATA RKO7_OFFSET(S) /'600*'/ 
0335 CHARACTER®17 —_RK_FUNC(0:15) 
0 DATA _FUNC(O) /*SELECT DRIVE®'/ 
0338 DATA RK-FUNC (9) DRIVE CLEARS 
0339 DATA RK_FUNC (3) 7*UNLOAB®*/ 
0340 DATA RK _FUNC(4) /*START SPINDLE®'/ 
0341 DATA RK_FUNC(5) /*RECALIBRATE®'/ 
0 ¢ DATA RK FUNC (8) /"OFFSET#"/ 
034 DATA RK _FUNC(7) /*SEEK#'/ 
Oe DATA RK FUNC (8) /*READ DATA®'/ 
0345 DATA RK _FUNC(9) /*WRITE DATA®'/ 
0366 DATA  RK_FUNC(10) /*READ HEADER*'/ 
034 DATA RK_FUNC(11) /"WRITE HEADER®'/ 
0348 DATA TTY /*WRITE CHECK®'/ 
0349 DATA RK -FUNC(13) /*ILLEGAL FUNCTION®'/ 
0350 DATA RK_FUNC (14) /*ILLEGAL FUNCTION®'/ 
O32) DATA RK_FUNC(15) /"ILLEGAL FUNCTION®'/ 
0884 CHARACTER®7 RKCS1_1(0:0) 
Be28 DATA ~=RKCS1_1(0) /*GO BIT#'/ 
0356 CHARACTER*28 —_RKCS1_2(5:9) 
O38 Sara Reesl3(@)f-anttanorr Enna. 08)" / 
a! 
0359 DATA RKCS1_ 3) /*CONTROLLER READY®'/ 
0360 DATA  RKCS1_ (8) /"EXTENDED BUS ADDRESS BIT 16*'/ 
0863 DATA RKCS1_2(9) /*EXTENDED BUS ADDRESS BIT 17*'/ 
0 ‘ CHARACTER*S RKCS1_10(0:1) 
0364 DATA RKCS1_10(0) 1 RKOGer/ 
Beee DATA =RKCS1~10(1) /*RKO7#"/ 
0367 CHARACTER*20 — RKCS1_3(11:11) 
Bee DATA = RKC$1_3(11) /*CONTROLLER TIME-OUT®'/ 
$396 CHARACTER*14 RK_FORMAT(0:1) 
0371 DATA  RK_FORMAT(O) /.ie-sit FORMAT®'/ 
0 i; DATA  RK_FORMAT(1) /°18-BIT FORMAT®'/ 
6 74 CHARACTER*33 =—-_—- RKC S1_4(13:15) 
0376 DATA RKC ZG(14)—/*DRIVE INTERRUPTS TZ NLT ERRORS '/ 
Bere DATA =RKC$1-4(15) /*COMBINED ERROR®*'/ 
35 CHARACTER*30 —s- RKC S2_1(3:15) 
380 DATA RKCS2_1(3) /*RELEASE®*/ 
381 DATA RKCS2-1(4) /*BUS ADDRESS INCREMENT INHIBIT®'/ 
388 DATA «—RRESSTI(G) INPUT REMOVES) 
3B DATA RKCS “103) /*OUTPUT READY®' 
5 DATA = RKCS ~1 (8) /‘UNIT FIELD ERROR*'/ 
386 DATA RKCS2-1(9) /*MULTIPLE DRIVE SELECT#*/ 


) 
| 
| 
| 
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RENT DRIVE ATTENTION®'/ 


/*DRIVE AVAILABLE*'/ 
TUS VALID®'/ 


1:11) 
/‘WRITE PROTECTED®'/ 


1(0:0) 
311: 


RKDS 
RKDS 


RKDS_1(0) 
RKDS_3(11) 


CHARACTER*16 
DATA 
CHARACTER*14 
DATA 
DATA 
CHARACTER*16 
DATA 
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ERVO SIGNAL PRESENT#'/ 
EADS _HOME®'/ 
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DATA VIRKMR2(12) /"HEADS LOADING*'/ 
DATA VIRKMRE(15) /*RETURN TO ZERO®'/ 
DATA VIRKMRE(14) /"UNLOADING HEADS*'/ 
DATA v1 (15) /*ODD PARITY BIT#'/ 
CHARACTER#29 VIRKMR3(4:15) 

VIRKMRS(4) /*SECTOR ERROR*'/ 
DATA VIRKMR3(5) /‘WRITE CURRENT, NO WRITE GATE®'/ 
Rk REE FRR RAG 08 at oti 
BAA SERRA IPE aga SELECT“ 
DATA VIRKMR 193 /*TRIBIT ERRORS’ / 
DATA VIRKMRS(11) /*SERVO SIGNAL ERROR*'/ 
DATA VIRKAR 18} /*SEEK_AND_ NO MOTION®'/ 
RA WERE) RU Becca Sa 
DATA VIRKMR3(15) /*ODD PARITY BIT#'/ 


CALL FRCTOF (LUN) 

call dhead? (lun,"UBA RK611") 

diagnostic_mode = .false. 

if (LibSextzv(5,1,rkmr1) .eq. 1) diagnostic_mode = .true. 
call Linchk (lun,2) 


write(lun, 20) rkcs 
format(/* *,T8, ‘Eelst*.t26, 28.4) 


if (.not. diagnostic_mode) then 

CALL OUTPUT (LUN,RKCS1,RKCS1_1,0,0,0,'0") 
DRIVE _FUNC=LIBSEXT2V(1,4,RKCS1) 

CALL LINCHK (LUN,1) 


eI Te tL, 30) RK_FUNC(DRIVE_FUNC) 
FORMAT(' ©, T40,A2COMPRESSC TRK FUNC (DRIVE _FUNC))>) 


CALL OUTPUT (LUK.RKCS1,RKCS1_2,5,5,9.'0") 
FIELD=LIBSEXT2V(10,1,RKCS1) 
CALL LINCHK (LUN,1) 
URITECLUN, 40) RKCS1_10(FIELD) 
FORMAT ( "CONTROLLER DRIVE TYPE ', 
1 WeCOMPRES SC trkeet” _1OCFIELD))>) 
CALL OUTPUT (LUN, RKCS1,RKCS1_3,11,11,11,°0") 


FIELD=LIBSEXTZV(12,1,RKCS1) 


VAX-11 FORTRAN V3.4-56 Page 6) 
DISKSVMSMASTER: LERF .SRCIRKDISK.FOR;1 


eee 
f 


H 11 
RKDISK 16-Sep-1984 00:13: VAX=11 FORTRAN V3.4=56 P 
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1 

; CALL LINCHK (LUN,1) 
WRITE(LUN,44) RK FORMAT (FIELD) 

. a FORMAT(' ©, T4O,AZCOMPRESSC (RK_FORMAT(FIELD))>) 
CALL OUTPUT (LUN, RKCS1,RKCS1_4,13,13,15,°0") 

oS endif 
CALL LINCHK (LUN,1) 
WRITE(LUN,50) RKWC 
50 FORMATC® TB, “RKUC*,726,28.4) 


CALL LINCHK (LUN,1) 


WRITE(LUN,60) RKBA 
FORMAT(* ',18,'RKBA',124,28.4) 


if (.not. diagnostic_mode) then 

IF (ORIVE_FUNC .GE. XFER_CMD) THEN 
CALL _CALC_MAP (LUN,8,RKCS1,RKBA) 
ENDIF 

endif 

CALL LINCHK (LUN,1) 


WRITE(LUN, 70) RKDA 
FORMAT(* °,18,*RKDA',124,78.4) 


60 


: 

31 70 

38 

$ if (.not. diagnostic_mode) then 
1 CALL LINCHK (LUN,2) 

37 F IELD=LIBSEXTZV(0,5,RKDA) 

39 
0 
4 
5 


WRITE(LUN,80) FIELD 
FORMAT(’ °,140,"SECTOR = *,1<COMPRESS4 (FIELD)>,".") 


FIELD=LIBSEXTZV(8,3,RKDA) 


WRITE(LUN,90) FIELD 
FORMAT(® *,T40, 


80 


TRACK = *, I<COMPRESS4 (FIELD)>,'.") 
endif 


3 CALL LINCHK (LUN,1) 
1 100 FORMAT(? #198. "RRESS*, 126,,28.4) 
5 if (.not. diagnostic_mode) then 
é CALL LINCHK (LUN,1) 


: 
OC 
OC 
oC 
oC 
OC 
oC 
OC 
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oC 
oC 
oC 
oC 
oC 
oo 
oC 
oC 
oC 
oC 
oC 
oC 
oC 
oC 
0c 
oC 
Oc 
0c 
0c 
Oc 
0c 
oC 
oC 
oC 
oC 
oC 
oC 
oC 
a 
‘ 
Oo 
0; 
0. 


FIELD=LIBSEXTZV(0,3,RKCS2) 
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WRITE(LUN,110) FIELD 
FORMAT(* §,140, "SELECTED DRIVE = ',11,".") 
R 


cms OUTPUT (LUN,RKCS2,RKCS2_1,3,3.15,'0") 
endif 


CALL LINCHK (LUN,1) 


WRITE(LUN,120) RKDS 
FORMAT(* °,T8,‘RKDS',124,78.4) 


if (.not. diagnostic_mode) then 

CALL OUTPUT (LUN,RKDS,RKDS_1,0,0,0,'0") 
CALL OUTPUT (LUN,RKDS,RKDS_2,2,2,7,'0') 
CALL LINCHK (LUN,1) 
FIELD=LIBSEXTZV(8,1,RKDS) 


WRITE (LUN, 130) RK_DRIVETYPE (FIELD) 
FORMAT(* *,T40,A<COMPRESSC (RK_DRIVETYPE(FIELD))>) 


CALL OUTPUT (LUN,RKDS,RKDS_3,11,11,11,'0") 
CALL OUTPUT (LUN,RKDS,RKDS_4,13,13,15,'0") 
endif 


CALL LINCHK (LUN,1) 


WRITE(LUN, 140) RKER 
FORMAT(* °,18,"RKER',124,78.4) 


if (.not. diagnostic_mode) then 

IF (JIAND(RKDS,"8000°X) .NE. 0) THEN 
CALL OUTPUT (LUN,RKER,RKER_1,0,0,15,°0") 
ENDIF 

endif 

CALL LINCHK (LUN,1) 


WRITE(LUN,150) RKAS 
FORMAT(* °,18,"RKAS/OF*,124,28.4) 


if (.not. diagnostic_mode) then 
F IELD=LIBSEXTZ2V(0,6,RKAS) 

IF (FIELD .NE. 0) THEN 

CALL LINCHK (LUN,1) 

IF (FIELD .NE. 1 .AND. 
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0615 1 FIELD .NE. 8 .AND. 
1 ; FIELD .NE. 16 .AND. 
1 FIELD .NE. 32 .AND 
18 4 FIELD :NE. 48) THEN 
$038 WRITE (LUN, 155 
be 1 155 FORMATO? fT 
0625 ELSE IF (EMBSB_DV_TYPE .£Q. RKO6) THEN 
08 ? FIELD=F IELD/8 
0629 WRITE(LUN, 160) RKO6 OFFSET (FIELD) 
06 160 FORMAT(' §,140,'OFFSET = ' 
06 1 1 A<COMPRESSC (RKO6_OFFSET(FIELD))>,* MICRO INCHES') 
06 j ELSE IF (EMBSB_DV_TYPE .£Q. RKO7) THEN 
06 5 FIELD=FIELD/8 
0637 WRITE (LUN, 165) RKO7 OFFSET (FIELD) 
0638 165 FORMAT(’ §,140,'OFFSET = ° 
0659 1 A<COMPRESSC (RKO7_OFFSET(FIELD))>,* MICRO INCHES") 


F IELD=LIBSEXTZV(7,1,RKAS) 

CALL LINCHK (LUN,1) 

WRITE(LUN, 170) OFFSET DIR(FIELD) 
FORMAT(’ §,140,°OFFSET DIRECTION 
1 ACCOMPRESSC (OF FSET_DIR(FIELD) 


170 = 
>) 
185 DO 195 1=8,15 
FIELD=LIBSEXTZV(1,1,RKAS) 
IF (FIELD .NE. 0) THEN 
CALL LINCHK (LUN,1) 
WRITEC(LUN,190) (1-8) 
FORMAT(* 


obi off off off off of6 off off off off off ol off odd of odd od OR OP OM OM OM OM OM OM OM OM OM OM. OM OM OM EM OM 


190 140, ATTENTION DRIVE ',11,".") 
ENDIF 

195 CONTINUE 
endif 


CALL LINCHK (LUN,1) 


| 
| 
WRITE (LUN, 200) RKDC 
200s FORMAT(* *,18,*RKDC*,124,28.4) 

| 


if (.not. diagnostic_mode) then 
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FIELD=LIBSEXTZV(0,10,RKDC) 
IF (FIELD .NE. 0) THEN 
CALL LINCHK (LUN,1) 


WRITECLUN,210) FIELD 
210 FORMATC® “f,T40, "DESIRED CYLINDER = ',1<COMPRESS4 (FIELD)>,".") 


endif 
CALL LINCHK (LUN,1) 


WRITE LUN, 23 ) RKMR1 
230 FORMA: (’ §,T8,*RKMR1',124,28.4) 


] 
| 
| 
| 
if (diagnostic_mode) then 


SNAG 
oo Wise 


call Linchk (lun,1) 
pore ye 235) 


poseceseeeoreness 


235 MAT(’ §, 140, "DIAGNOSTIC MODE") 
0695 Fone 
0697 CALL LINCHK (LUN,1) 
0698 
0699 WRITE (LUN, 240) RKEC1 
9700 240 FORMAT(' °,18,"RKEC1*,124,28.4) 
970 CALL LINCHK (LUN,1) 1 
0704 WRITE (LUN, 250) RKEC 
9705 250 FORMAT(’ °,18,"RKEC2',124,28.4) 
$709 CALL LINCHK (LUN,1) 


WRITE (LUN, 260) iy F 
260 FORMAT(’ °,T8,*RKMR2',124,28.4) 


if (.not. diagnostic_mode) then 

a taeda -NE. 0) 
CERSSU_NO ENTRY -EQ. TIMEOUT) 

4 (JIAND(RKMR3,'01°X) .NE. 0)) THEN 

CALL LINCHK (LUN,1) 


NOUSWN oO 


ae a RD oe md a nt 


WRITE (LUN, 26 

261 FORMAT( S140, *#es MESSAGE AT ###*) 
| 
| 
| 
| 


FIELD = LIBSEXTZV(0,3,RKMR2) 
CALL LINCHK (LUN,1) 
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$-se0-19 4 eae DISKSVMSMASTER: CERF 


0729 WRITE(LUN, 262) FIELD 
of . 262 FORMAT(* °,140,"SELECTED DRIVE = °,I1<COMPRESS4 (FIELD)>,'.") 
07 ¢ CALL OUTPUT (LUN,RKMR2,V1IRKMR2,4,4,15,'0') 
07 ENDIF 
8 : endif 
4 8 CALL LINCHK (LUN,1) 
4 8 porte sim, ery? ae 
494 270 FORMAT(* °,18,"RKMR3°,124,78.4) 
O74) if (.not. diagnostic_mode) then 
Ores if (CJIAND(RKMR1,°01'X) .NE. 0) 
0745 é (EMBSW_HD_ENTRY .£Q. TIMEOUT) 
0747 4 (JTAND(RKMR3,"01°X) .NE. 0) 
0749 6 (JIAND(RKMR3,"FFFC'X) .NE.O)) THEN 
0751 CALL LINCHK (LUN,1) 
O78 
075 WRITE(LUN, 272) 
Opee 272 FORMAT(* *,140,**#* MESSAGE B1 ***') 
0756 CALL OUTPUT (LUN,RKMR3,V1IRKMR3,4,4,15,'0') 
0757 ENDIF 
0758 endif 
0759 
0760 if ¢ 
0761 1 drive_func .ge. xfer_cmd 
1534 1 .and. 
076 1 emb$w_hd_entry .ne. 96 
0764 1 .and. 
0765 1 emb$w_hd_entry .ne. 98 
0766 1) then 
0767 
O69 if (uba_regs(1) .ne. 0) then 
O77 cal) uba_detapeth (Lun,uba_regs(1) ,uba_regs(2)) 
0778 call calc_map2 (8,rkcs1,rkba, field) 
gore call uba_mapping (lun, field,uba_regs(3)) 
77 if ( 
778 1 LibSextzv(16,16,emb$l_dv_iosb1) .gt. 512 
1h 1 .and. 
780 1 field .ne. 0 
4} 1) then 
7 § call uba_mapping (lun, (field-1) ,uba_regs(4)) 
7 endif 


endif 


_ 


CIRKDISK.FOR;1 
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RKDISK 


275 


call Linchk (lun,1) 


write(lun,275) 
ormat(’ °,:) 


if (emb$Sw_hd_entry .ne. 98) then 

call ucb$b_ertcnt (lun,emb$b_dv_ertcnt) 
call _ucb$b_ertmax (Lun,emb$b_dv_ertmax) 
endif 


call orb$l_owner (lun,emb$l_dv_ownuic) 
call ucb$l_char (Lun,emb$l_dv_char) 
call ucb$w_sts (lun,emb$w_dv_sts) 

call ucb$l_opcnt (lun,emb$l_dv_opcnt) 
call ucb$wlerrcnt (lun,emb$w_dv_errcnt) 
if Cemb$w_hd_entry .ne. 98) then 

call ucb$l_media (lun,emb$l_dv_media) 
call Linchk (Llun,1) 

write(lun,275) 

call rkdisk_qio (lun,emb$w_dv_ func) 
call irp$w_bcnt (lun,emb$w_dv_bcnt) 
call irp$w_boff (lun,emb$w_dv_boff) 
call irp$l_pid (lun,emb$l_dv_raqpid) 
call irp$q_iosb (lun,emb$l_dv_iosb1) 
endif 


RETURN 
END 
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RKDISK 


PROGRAM SECTIONS 
Name 
Q SCODE 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address 


ARRAYS 


Address Type 


messin I*4 EMBSQ-HD- 
O CHAR OFFSET_DT 
10 CHAR RKO6_OFFS 
CHAR RKO7_OFFS 


Total Space Allocated 


Name 
RKDISK 


Name 
DIAGNOSTIC _MODE 
EMBSB SS 


Bytes Attributes 
2g73 PIC CON REL LCL SHR 
+ PIC CON REL LCL SHR 
37 8 PIC CON REL LCL NOSH 
51 PIC OVR REL GBL SHR 
7954 


Address Type 
-Q000095C I*4 


-000 


AAA AAI AANA AAA AAA AALAND 


w$2p=1986 eiet 27 


EXE RD NOWRT LONG 
OEXE RD NOWRT LONG 
EXE RD WRT LONG 
EXE RD WRT LONG 


DRIVE _FUNC 
EMB$B_DV_ERTCNT 


EnBsL -BV-OPCNT 
$ NAME 


CIRKDISK.FOR;1 
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ao 18-Sep-19 4 00:13:1 
-Sep-1984 90a: 35 
0000 RKCS1_1 7 (0:0) 
RKCS1_10 1 (0:1) 
Rest -§ 140 «5:9) 
RKCS1_ C11} 
R RKCS1_4 (13:15) 
RKCS2_1 390 (3:15) 
RKDS_T 16 ¢ :9) 
RKDS 6 96 (2:7) 
RKDS_ 1 ( $313} 
RKDS_4 72 (13:15) 
KER_1 5 (0:15) 
RK_DRIVETYPE (0:1) 
K_FORMAT (0:1) 
RK_FUNC 2 (0:15) 
K_RE 1 (4) 
VIRRMR ¢2 (4:15) 
V1RKMR 4 (4:15) 
LABELS 
Address Label Address Label Address Label Address Label 
1-0000004C 20° 1-0000005F 30° 1-00000068 40° 1-Q000008F 44° 
pss 4's 4 0° 1-Q00000CE 80° 1-Q00000E8 90° 1-00000102 100° 
1-00000143 130° 1-0000014F 140° 1-00000160 150° 1-00000174 155° 
1-000001D6 170° 0-000005A9 185 1-000001F7 190° et 195 
1-00000249 230° 1-0000025B8 235' 1-00000272 240° 1-00000284 250° 
1-000002C2 262° 1-000002E4 270° 1-000002F6 272° 1-00000310 275° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name 
CALC_MAP CALC_MAP2 1*4 COMPRESS4 I1*4 COMPRESSC 
IRPS$C_PID IRP$O_10SB IRP$W_BCNT IRPS$W_BOFF 
ORBSL_OWNER Put RKDISR_QI0 UBA_DATAPATH 


UCBSB_ERTMAX 


OUTPU 
UCBS$L_CHAR 


UCBSL_OPCNT 


VAX=11 FORTRAN 


Address’ Label 


DHEAD1 
LIBSEXTZV 
UBA_MAPPING 
UCBSW_ERRCNT 


3.4-56 
DISKSVMSMASTER: CERF .SRCIRKDISK.FOR;1 


Address 


Type Name 


FRCTOF 


Page 


Label 
60° 


LINCHK 
UCBS$B_ERTCNT 
UCBSWSTS 
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7300138 14:21:27 DISKSVMSMASTER: CERF .SRCIRKDISK.FOR;1 ee: | 


Subroutine RKDISK_Q10 (lun,emb$w_dv_ func) 


2588 


3302 include ‘src$:qiocommon.for /nolist' 

7 byte Lun | 
6 18 integer*2 emb$w_dv_ func 
0274 pK 

8 ie integer*4 qiocode(0:1,0:63) 
0277 

0978 if (qiocode(0,0) .eq. 0) then | 
asd qiocode(1,00) = Zloc(io$_nop) 

os8¢ qiocode(1,01) = %loc(io$_unload) 

pees qiocode(1,02) = Zloc(io$_seek) 

osee qiocode(1,03) = Zloc(io$_recal) 

psee qiocode(1,04) = Zloc(io$_drvcir) 

asa0 qiocode(1,05) = Z%loc(io$_release) 

i344 qiocode(1,06) = Zloc(io$_offset) 

0994 qiocode(1,07) = Xloc(io$_retcenter) 

0996 qiocode(1,08) = Z%loc(io$_packack) 
O599 qiocode(1,10) = Zloc(io$_writecheck) 

6300 qiocode(1,11) = Zloc(io$_writepblk) 

a4 qiocode(1,12) = Zloc(io$_readpblk) 

0 qiocode(1,13) = Zloc(io$_writehead) 


qiocode(1,14) = Zloc(io$_readhead) 
qiocode(1,25) = Zloc(io$_startspndl) 
qiocode(1,26) = Zloc(io$_setchar) 
qiocode(1,27) = Zloc(io$_sensechar) 
qiocode(1,32) = Xloc(io$_writelblk) 
qiocode(1,33) = Zloc(io$_readlblk) 
qiocode(1,35) = Zloc(io$_setmode) 
qiocode(1,39) = Zloc(io$_sensemode) 


SSSar 


33 
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5 Haat hi 90: tid} DI SKSVMSMASTER: CERF .SRCIRKDISK.FOR: 1 . 
qiocode(1,48) = Zloclio$_writevblk) 
qiocode(1,49) = Zloc(io$_readvblk) 
qiocode(1,50) = Zloc(io$_access) 


qiocode(1,52) = Zloc(io$_deaccess) 
qiocode(1,53) = Zloc(io$_delete) 
agiocode(1,54) = Xloc(io$_modify) 
qiocode(1,56) = Zloc(io$_acpcontrol) 
qiocode(1,57) = Zloc(io$_mount) 

do 10,1 = 0,63 

qiocode(0,i) = 33 

if (qiocode(1,i) .eq. 0) then 


pee fe lo lelolololololololo) 


} 
| 
qiocode(1,51) = Zloc(io$_create) 


pepo jolelolalololo! 
Ww 


SELESESESE 
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qiocode(1,i) = Zloc(qio_string) 
endif 

10 continue 
endif 


func ° 
1 qiocode(0, LibSextzv(0,6,emb$w_dv_func))) 


return 


Oooooecoeooo 
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PAA 


call irp$w_func (lun,emb$w_dv 
end | 
| 


RKDISK_Q10 


PROGRAM SECTIONS 


Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 
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Bytes 

295 
134 

2098 


Name 
RKDISK_Q10 


Name 

Fnasu DV_FUNC 

10$_ACPCONTROL 

10$- CLEAN 

DEACCESS 
AGNOSE 


“READLBLK 

“READPRE SET 

“R LK 

~READWTHXBUF 
ASE 


asagasasaasaes 
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EBUFNCRC 
ECHECKH 
E 
E 
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VAX=11 FORTRAN 


DISKSVMSMASTER: 
Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE &D NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Address Type Name 
$- 90008 00 I*4 | 
-0000034D CHAR IOS_ACCESS 
00000483 CHAR IO$_AVAILABLE 
-00000369 CHAR I0$_CREATE 
-00000393 CHAR IO$_DELETE 
-00000065 CHAR IO$_DRVCLR 
-Q00000A9 CHAR IO$_ERASETAPE 
-00000071 CHAR IO$_INITIALIZE 
-Q00003A1 CHAR IOS_MODIFY 
-00000000 CHAR I0$_NOP 
“QOQO00EB CHAR IO$_PACKACK 
~QOO003EF CHAR IO$S_RDSTATS 
-00000169 CHAR I1O$_READHEAD 
m4 F CHAR I10$_READPBLK 
-00000195 CHAR IO$_READTRACKD 
“ROR RID CHAR 10$_READWTHBUF 
-0000004D CHAR IO$_RECAL 
-Q00001AB CHAR IO$_REREADN 
“QO0000CA CHAR IOS_RETCENTER 
-000002C9 CHAR IO$S_REWINDOFF 
- 4 CHAR IOS_SEEK 
- 9 CHAR IO$_SENSEMODE 
-000003588 CHAR I0$_SETCLOCK 
-000002DD CHAR IO$S_SETMODE 
~QO0002FA CHAR IO$_SKIPRECORD 
— CHAR I0$_SPACERECORD 
- B4 «CHAR 10$_STARTDATAP 
- F CHAR IO$_STARTSPNDL 
- D CHAR IO$_UNLOAD 
E CHAR 1O$_WRITECHECK 
- F CHAR IO$S_WRITECSR 
- ¢ CHAR 10$_WRITELBLK 
- CHAR 10$_WRITEOF 
- 9 CHAR [0$_WRITERET 


Pees 
ERF .SRCIRKDISK.FOR; 1 
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DISKSVMSMASTER: CERF. SRCIRKDISK.FOR;1 | 


ARRAYS 
Address Type Name Bytes Dimensions 
LABELS 
Address Label 
ee 10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
IRPSW_FUNC 1*4 LIBSEXTZV 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:RKDISK/OBJ=OBJ$:RKDISK MSRC$:RKDISK 


/ CHE CK=(NOBOUNDS , OVERF LOW, NOUNDERF LOW) 
aS ee EBACK) 


COMPILATION STATISTICS 


Run Time: 11.39 seconds 
Elapsed Time: ¢34°2 seconds 
Page Faults: 71 
Dynamic Memory: 245 


| 
| 
| 
| 
2-00000000 1*4 QIOCODE $12 (0:1, 0:63) 
| 
| 


Dz 
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